home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-68K / Examples folder / Macro Source / Invert Mask < prev    next >
Text File  |  1993-04-14  |  706b  |  91 lines
  1. alpha     "Invert Mask:"
  2. ;
  3. XEQ 10
  4. ;
  5. XEQ 80
  6. ;
  7. STOP
  8. ;
  9. LBL 10
  10. const     0.000000000e+00
  11. STO 10
  12. size
  13. const     1.000000000e+00
  14.  -
  15. RCL 10
  16.  +
  17. STO 11
  18. ;
  19. LBL 90
  20. RCLi 11
  21. test 1
  22. GTO 91
  23. ;
  24. LBL 92
  25. RCLi 10
  26. test 1
  27. GTO 93
  28. ;
  29. RTN
  30. ;
  31. LBL 91
  32. const     1.000000000e+00
  33. SUB 11
  34. GTO 90
  35. ;
  36. LBL 93
  37. const     1.000000000e+00
  38. ADD 10
  39. GTO 92
  40. ;
  41. LBL 80
  42. ;
  43. RCL 11
  44. RCL 10
  45.  -
  46. const     1.000100017e+00
  47.  +
  48. int
  49. STO 01
  50. ;
  51. RCL 10
  52. int
  53. STO 19
  54. ;
  55. RCL 10
  56. STO 20
  57. ;
  58. const     0.000000000e+00
  59. RCL 01
  60. x <= y
  61. GTO 81
  62. ;
  63. LBL 98
  64. ;
  65. RCLi 20
  66. test 2
  67. GTO 96
  68. ;
  69. Mi 19
  70. GTO 95
  71. ;
  72. LBL 96
  73. UMi 19
  74. ;
  75. LBL 95
  76. const     1.000000000e+00
  77. ADD 19
  78. ADD 20
  79. ;
  80. const     0.000000000e+00
  81. DSE 01
  82. GTO 98
  83. ;
  84. RTN
  85. ;
  86. LBL 81
  87. RTN
  88. ;
  89. alpha     "Version 1.0 - 5/10/89"
  90. alpha     "by Lonnie R. Abelbeck"
  91.